home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / Interval.p < prev    next >
Text File  |  2004-01-31  |  3KB  |  93 lines
  1. pTempVar <- <primitive 110 18 >
  2. <primitive 112 pTempVar 1  " shallowCopy " \
  3.   #( #[ 16r10 16r11 16r12 16rD4 16rF3 16rF5] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " deepCopy " \
  7.   #( #[ 16r10 16r11 16r12 16rD4 16rF3 16rF5] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " removeKey:ifAbsent: " \
  11.   #( #[ 16r20 16r30 16rBD 16rF2 16r22 16rA5 16rF3 16rF5] \
  12.     #( 'cannot remove from Interval'  )) >
  13.  
  14. <primitive 112 pTempVar 4  " add: " \
  15.   #( #[ 16r20 16r30 16rBD 16rF3 16rF5] \
  16.     #( 'cannot store into Interval'  )) >
  17.  
  18. <primitive 112 pTempVar 5  " at:put: " \
  19.   #( #[ 16r20 16r30 16rBD 16rF3 16rF5] \
  20.     #( 'cannot store into Interval'  )) >
  21.  
  22. <primitive 112 pTempVar 6  " coerce: " \
  23.   #( #[ 16r21 16rAF 16rF3 16rF5] \
  24.     #(  )) >
  25.  
  26. <primitive 112 pTempVar 7  " printString " \
  27.   #( #[ 16r30 16r10 16rA9 16r0B 16r12 16r31 16r0B 16r12 16r11 16rA9 16r0B \
  28.         16r12 16r32 16r0B 16r12 16r12 16rA9 16r0B 16r12 16rF3 16rF5 \
  29.        ] \
  30.     #( 'Interval ' ' to ' ' by '  )) >
  31.  
  32. <primitive 112 pTempVar 8  " at:ifAbsent: " \
  33.   #( #[ 16r10 16r12 16r21 16r51 16rC1 16rC2 16rC0 16r73 16r20 16r23 16r0B \
  34.         16r20 16rF7 16r03 16r23 16rF8 16r03 16rF2 16r22 16rA5 16rF3 \
  35.         16rF5] \
  36.     #(  )) >
  37.  
  38. <primitive 112 pTempVar 9  " next " \
  39.   #( #[ 16r13 16r12 16rC0 16r63 16r20 16r13 16r0B 16r20 16rF7 16r01 16r13 \
  40.         16rF3 16rF5] \
  41.     #(  )) >
  42.  
  43. <primitive 112 pTempVar 10  " last " \
  44.   #( #[ 16r11 16r63 16r20 16r13 16r0B 16r20 16rF7 16r01 16r13 16rF3 16rF5 \
  45.        ] \
  46.     #(  )) >
  47.  
  48. <primitive 112 pTempVar 11  " first " \
  49.   #( #[ 16r10 16r63 16r20 16r13 16r0B 16r20 16rF7 16r01 16r13 16rF3 16rF5 \
  50.        ] \
  51.     #(  )) >
  52.  
  53. <primitive 112 pTempVar 12  " inRange: " \
  54.   #( #[ 16r12 16r50 16rCC 16rF7 16r0B 16r21 16r10 16rCB 16rFC 16r03 16r21 \
  55.         16r11 16rC8 16rF3 16rF8 16r0A 16rF2 16r21 16r11 16rCB 16rFC \
  56.         16r03 16r21 16r10 16rC8 16rF3 16rF2 16rF5] \
  57.     #(  )) >
  58.  
  59. <primitive 112 pTempVar 13  " size " \
  60.   #( #[ 16r12 16rAA 16rF7 16r05 16r11 16r10 16rC7 16rF8 16r04 16rF2 16r10 \
  61.         16r11 16rC7 16rF7 16r03 16r50 16rF8 16r09 16rF2 16r11 16r10 \
  62.         16rC1 16r12 16r0B 16r13 16r51 16rC0 16rF3 16rF5] \
  63.     #(  )) >
  64.  
  65. <primitive 112 pTempVar 14  " stepSize " \
  66.   #( #[ 16r12 16rF3 16rF5] \
  67.     #(  )) >
  68.  
  69. <primitive 112 pTempVar 15  " upperBound " \
  70.   #( #[ 16r11 16rF3 16rF5] \
  71.     #(  )) >
  72.  
  73. <primitive 112 pTempVar 16  " lowerBound " \
  74.   #( #[ 16r10 16rF3 16rF5] \
  75.     #(  )) >
  76.  
  77. <primitive 112 pTempVar 17  " from:to: " \
  78.   #( #[ 16r21 16rF1 16r60 16r63 16r22 16r61 16r51 16r62 16rF5] \
  79.     #(  )) >
  80.  
  81. <primitive 112 pTempVar 18  " from:to:by: " \
  82.   #( #[ 16r21 16rF1 16r60 16r63 16r22 16r61 16r23 16r62 16rF5] \
  83.     #(  )) >
  84.  
  85. <primitive 98 #Interval \
  86.   <primitive 97 #Interval #SequenceableCollection #AmigaTalk:General/Interval.st \
  87.    #(  #lower #upper #step #current ) \
  88.    #( #shallowCopy #deepCopy #removeKey:ifAbsent: #add: #at:put: #coerce:  \
  89.        #printString #at:ifAbsent: #next #last #first #inRange: #size #stepSize #upperBound  \
  90.        #lowerBound #from:to: #from:to:by:  ) \
  91.   pTempVar 4 5 > #ordinary >
  92.  
  93.